home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / GCR_READ.ARC / RD TRK 10 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  968 b   |  52 lines
  1. 10 ;RD DSK 10
  2. 400 RDDSK LDA #$00; READ DISK BUFFERS $0400 & $0500
  3. 410 STA A; COUNTER FOR TWO BUFFERS
  4. 420 RD JSR LIST
  5. 430 LDY #$00
  6. 440 LP23 LDA MR1,Y
  7. 450 JSR OUT
  8. 460 INY
  9. 470 CPY #$06
  10. 480 BNE LP23
  11. 490 JSR UNLIS
  12. 500 JSR TALK
  13. 510 LDY #$00
  14. 520 LP24 JSR IN; GET A BYTE & PUT IN 64
  15. 530 BF1 STA GCR1,Y; GCR TO HEX BUFFER
  16. 535 BF2 STA GCR2,Y; IF NEW SECTOR THIS WILL BE
  17. 540 INY; TRANSFERED TO DATA BUFFER TO SAVE
  18. 550 BNE LP24
  19. 551 JSR UNTLK
  20. 552 JSR LIST; GET BYTE # 256
  21. 553 LDY #$00; TALK IS LIMITED TO 255 BYTES AT A TIME
  22. 554 LB LDA MRLB,Y
  23. 555 JSR OUT
  24. 556 INY
  25. 557 CPY #$06
  26. 558 BNE LB
  27. 559 JSR UNLIS
  28. 560 JSR TALK
  29. 561 JSR IN
  30. 562 LDY #$FF
  31. 563 STA GCR1,Y
  32. 564 STA GCR2,Y
  33. 565 JSR UNTLK
  34. 579 INC MR1+4; INCREMENT HIGH BYTE OF BUFFERS
  35. 580 INC BF1+2
  36. 585 INC BF2+2
  37. 590 INC A
  38. 600 LDA A
  39. 610 CMP #$02; CHECK IF BOTH BUFFERS READ
  40. 620 BEQ RD1
  41. 630 JMP RD
  42. 640 RD1 DEC BF1+2; RESET HIGH BYTE OF BUFFERS
  43. 645 DEC BF1+2
  44. 650 DEC BF2+2
  45. 655 DEC BF2+2
  46. 660 DEC MR1+4
  47. 670 DEC MR1+4
  48. 680 LDA #$00
  49. 690 STA A
  50. 700 RTS
  51. 710 .FILE RD TRK 11
  52.